﻿Imports System.Windows.Forms
Imports ExternalResource.IconPackage
Public Class dlgJumpTo
    Public LineNumber As Integer
    Public VPosition As TextBoxPrj.VPosition
    Private Sub OK_Button_Click() Handles MyYesCancelPanel.OK_Clicked
        LineNumber = NUDLine.Value
        If RadTop.Checked Then VPosition = TextBoxPrj.VPosition.Top
        If RadMiddle.Checked Then VPosition = TextBoxPrj.VPosition.Middle
        If RadBottom.Checked Then VPosition = TextBoxPrj.VPosition.Bottom
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub
    Private Sub Cancel_Button_Click() Handles MyYesCancelPanel.NO_Clicked
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub
    Private Sub JumpTo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MyYesCancelPanel.OK_Text = GetTextInLanguageDoc("OK", TextMode.Text)
        MyYesCancelPanel.NO_Text = GetTextInLanguageDoc("Cancel", TextMode.Text)
        lblJumpTo.Text = GetTextInLanguageDoc("JumpToLine", TextMode.Text)
        lblShowAt.Text = GetTextInLanguageDoc("ShowAt", TextMode.Text)
        RadTop.Text = GetTextInLanguageDoc("Top", TextMode.Text)
        RadMiddle.Text = GetTextInLanguageDoc("Middle", TextMode.Text)
        RadBottom.Text = GetTextInLanguageDoc("Bottom", TextMode.Text)
        NUDLine.Select(0, 1)
    End Sub
End Class
